home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / sys / ttychars.ph < prev    next >
Encoding:
Text File  |  1991-08-12  |  751 b   |  24 lines
  1. if (!defined &_TTYCHARS) {
  2.     eval 'sub _TTYCHARS {1;}';
  3.     eval 'sub CTRL {
  4.         local($c) = @_;
  5.         eval "($c&037)";
  6.     }';
  7.     eval 'sub CERASE {0177;}';
  8.     eval 'sub CKILL { &CTRL(ord(\'u\'));}';
  9.     eval 'sub CINTR { &CTRL(ord(\'c\'));}';
  10.     eval 'sub CQUIT {034;}';
  11.     eval 'sub CSTART { &CTRL(ord(\'q\'));}';
  12.     eval 'sub CSTOP { &CTRL(ord(\'s\'));}';
  13.     eval 'sub CEOF { &CTRL(ord(\'d\'));}';
  14.     eval 'sub CEOT { &CEOF;}';
  15.     eval 'sub CBRK {0377;}';
  16.     eval 'sub CSUSP { &CTRL(ord(\'z\'));}';
  17.     eval 'sub CDSUSP { &CTRL(ord(\'y\'));}';
  18.     eval 'sub CRPRNT { &CTRL(ord(\'r\'));}';
  19.     eval 'sub CFLUSH { &CTRL(ord(\'o\'));}';
  20.     eval 'sub CWERASE { &CTRL(ord(\'w\'));}';
  21.     eval 'sub CLNEXT { &CTRL(ord(\'v\'));}';
  22. }
  23. 1;
  24.